home *** CD-ROM | disk | FTP | other *** search
- ******************************************************************************
- ** DASD.GRA DESCRIPTION FILE **
- ******************************************************************************
- ** DASD FUNCTION CALLS **
- ******************************************************************************
- @IMPORT GLOBAL.GRA
- DASD_QLOCK $DLL=DDTDASD $FUNC=@query_lock$qr8Kwd_List
- ******************************************************************************
- DASD_OPEN $DLL=DDTDASD \
- DEVICENAME=STRING \
- $FUNC=@open_logical$qr8Kwd_List
- **
- ** THIS FUNCTION OPENS 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DEVICENAME
- **
- ** RETURNS: add DRIVEHANDLE
- **
- ******************************************************************************
- DASD_CLOSE $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@close_logical$qr8Kwd_List
- **
- ** THIS FUNCTION CLOSES 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: del DRIVEHANDLE
- **
- ******************************************************************************
- LOCK_LOGICAL $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@lock_logical$qr8Kwd_List
- **
- ** THIS FUNCTION LOCKS 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- UNLOCK_LOGICAL $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@unlock_logical$qr8Kwd_List
- **
- ** THIS FUNCTION UNLOCKS 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- GET_LOGICAL_PARAMS $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@get_logical_params$qr8Kwd_List
- **
- ** THIS FUNCTION GETS THE LOGICAL PARAMETERS OF 1 PARTITION ON A PHYSICAL
- ** DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: SECTORSIZE
- ** CLUSTERSIZE
- ** FATCOUNT
- ** ROOTCOUNT
- ** SECTORCOUNT
- ** FATSIZE
- ** TRACKSIZE
- ** HEADCOUNT
- **
- ******************************************************************************
- QMEDIA_SENSE $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@qmedia_sense$qr8Kwd_List
- **
- ** THIS FUNCTION RETURNS THE MEDIA SENSE INFORMATION
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: BYTE : MEDIA SENSE INFORMATION
- **
- ******************************************************************************
- QLOGICAL_MAP $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@qlogical_map$qr8Kwd_List
- **
- ** THIS FUNCTION RETURNS THE LOGICAL DRIVE LETTER THAT WAS LAST USED TO
- ** REFERENCE (OPEN) THE DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: BYTE : LOGICAL DRIVE NUMBER
- **
- ******************************************************************************
- SET_LOGICAL_MAP $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@set_logical_map$qr8Kwd_List
- **
- ** THIS FUNCTION SETS THE NEXT LOGICAL DRIVE LETTER THAT IS USED TO REFERENCE
- ** THE DRIVE
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: BYTE : LOGICAL DRIVE NUMBER
- **
- ******************************************************************************
- BLOCK_REMOVABLE $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@block_removable$qr8Kwd_List
- **
- ** THIS FUNCTION IS USED TO DETERMINE IF THE MEDIA IS REMOVABLE OR FIXED
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: BYTE : REMOVEABLE MEDIA (Y/N)
- **
- ******************************************************************************
- REDETERMINE_MEDIA $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- $FUNC=@redetermine_media$qr8Kwd_List
- **
- ** THIS FUNCTION REDETERMINES MEDIA. IN THE PROCESS, IT REBUILDS THE
- ** DEVICE PARAMETERS.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: BYTE : RESERVED, SET TO 0
- **
- ******************************************************************************
- READ_LOGICAL $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- SECTORSIZE=NUM \
- TRACKSIZE=NUM \
- SECTORCOUNT=NUM \
- $BUFFER=STRING \
- $FUNC=@read_logical$qr8Kwd_List
- **
- ** THIS FUNCTION READS SECTORS FROM 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD : HEAD TO READ FROM
- ** CYLINDER : CYLINDER TO READ FROM
- ** SECTORSTART : STARTING SECTOR FOR READ
- ** SECTORSIZE : SECTOR SIZE OF DRIVE
- ** TRACKSIZE : TRACK SIZE OF DRIVE
- ** SECTORCOUNT : NUMBER OF SECTORS TO READ
- ** $BUFFER : OUTPUT BUFFER
- **
- ** RETURNS: $(BUFFER)
- **
- ******************************************************************************
- WRITE_LOGICAL $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- TRACKSIZE=NUM \
- $BUFFER=STRING \
- $FUNC=@write_logical$qr8Kwd_List
- **
- ** THIS FUNCTION WRITES TO 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** CYLINDER
- ** SECTORSTART
- ** TRACKSIZE
- ** $BUFFER
- ** $($BUFFER)
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- VERIFY_LOGICAL $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- TRACKSIZE=NUM \
- SECTORSIZE=NUM \
- SECTORCOUNT=NUM \
- $FUNC=@verify_logical$qr8Kwd_List
- **
- ** THIS FUNCTION RETURNS THE STATUS OF 1 PARTITION ON A PHYSICAL DRIVE.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** CYLINDER
- ** SECTORSTART
- ** TRACKSIZE
- ** SECTORCOUNT
- ** SECTORSIZE
- **
- ** RETURNS: add VERIFY (1/0)
- **
- ******************************************************************************
- FORMAT_TRACK $DLL=DDTDASD \
- DRIVEHANDLE=NUM \
- HEAD=NUM \
- TRACKNUM=NUM \
- SECTORSIZE=NUM \
- TRACKSIZE=NUM \
- $FUNC=@format_track$qr8Kwd_List
- **
- ** THIS FUNCTION FORMATS A TRACK.
- **
- ** NEEDED PARAMETERS: DRIVEHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** TRACKNUM
- ** TRACKSIZE
- ** SECTORSIZE
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- OPEN_PHYSICAL $DLL=DDTDASD \
- DISKNUMBER=STRING \
- $FUNC=@open_physical$qr8Kwd_List
- **
- ** THIS FUNCTION OPENS A ENTIRE PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKNUMBER - ex. "1:" for first fixed disk
- **
- ** RETURNS: add DISKHANDLE
- **
- ******************************************************************************
- CLOSE_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- $FUNC=@close_physical$qr8Kwd_List
- **
- ** THIS FUNCTION CLOSES A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: del DISKHANDLE
- **
- ******************************************************************************
- LOCK_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- $FUNC=@lock_physical$qr8Kwd_List
- **
- ** THIS FUNCTION LOCKS A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- UNLOCK_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- $FUNC=@unlock_physical$qr8Kwd_List
- **
- ** THIS FUNCTION UNLOCKS A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- GET_PHYSICAL_PARAMS $DLL=DDTDASD \
- DISKHANDLE=NUM \
- $FUNC=@get_physical_params$qr8Kwd_List
- **
- ** THIS FUNCTION GETS THE PARAMATERS OF A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- **
- ** RETURNS: CYLINDERCOUNT
- ** TRACKCOUNT
- ** TRACKSIZE
- **
- ******************************************************************************
- WRITE_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- SECTORSIZE=NUM \
- TRACKSIZE=NUM \
- $BUFFER=STRING \
- $FUNC=@write_physical$qr8Kwd_List
- **
- ** THIS FUNCTION WRITES TO A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** CYLINDER
- ** SECTORSTART
- ** SECTORSIZE
- ** TRACKSIZE
- ** $BUFFER
- ** $($BUFFER)
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- READ_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- SECTORCOUNT=NUM \
- SECTORSIZE=NUM \
- TRACKSIZE=NUM \
- $BUFFER=STRING \
- $FUNC=@read_physical$qr8Kwd_List
- **
- ** THIS FUNCTION READS SECTORS FROM A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** CYLINDER
- ** SECTORSTART
- ** SECTORCOUNT
- ** SECTORSIZE
- ** TRACKSIZE
- ** $BUFFER
- **
- ** RETURNS: add $($BUFFER)
- **
- ******************************************************************************
- VERIFY_PHYSICAL $DLL=DDTDASD \
- DISKHANDLE=NUM \
- HEAD=NUM \
- CYLINDER=NUM \
- SECTORSTART=NUM \
- SECTORCOUNT=NUM \
- SECTORSIZE=NUM \
- TRACKSIZE=NUM \
- $FUNC=@verify_physical$qr8Kwd_List
- **
- ** THIS FUNCTION RETURNS THE STATUS OF A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- ** HEAD
- ** CYLINDER
- ** SECTORSTART
- ** SECTORCOUNT
- ** SECTORSIZE
- ** TRACKSIZE
- **
- ** RETURNS: add VERIFY (1/0)
- **
- ******************************************************************************
- READ_FILE $DLL=DDTDASD \
- DISKHANDLE=NUM \
- FILENAME=STRING \
- BYTESTART=NUM \
- BYTECOUNT=NUM \
- $BUFFER=STRING \
- $FUNC=@read_file$qr8Kwd_List
- **
- ** THIS FUNCTION READS A FILE FROM A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- ** FILENAME
- ** BYTESTART
- ** BYTECOUNT
- ** $BUFFER
- **
- ** RETURNS: add $($BUFFER)
- **
- ******************************************************************************
- WRITE_FILE $DLL=DDTDASD \
- DISKHANDLE=NUM \
- FILENAME=STRING \
- BYTESTART=NUM \
- $BUFFER=STRING \
- $FUNC=@write_file$qr8Kwd_List
- **
- ** THIS FUNCTION WRITES A FILE TO A PHYSICAL DISK.
- **
- ** NEEDED PARAMETERS: DISKHANDLE : DRIVE HANDLE FOR DRIVE
- ** FILENAME
- ** BYTESTART
- ** $BUFFER
- ** $(BUFFER)
- **
- ** RETURNS: NOTHING
- **
- ******************************************************************************
- SET_DEVICEPARAMS $DLL=DDTDASD \
- $FUNC=@set_deviceparams$qr8Kwd_List \
- SECTORSIZE=NUM \
- CLUSTERSIZE=NUM \
- FATCOUNT=NUM \
- ROOTCOUNT=NUM \
- TOTALSECTORS=NUM \
- FATSIZE=NUM \
- TRACKSIZE=NUM \
- HEADCOUNT=NUM \
- TOTALSECTORS=NUM \
- CYLINDERS=NUM \
- DEVICETYPE=NUM
-